Necessary packages included in the project.
library(rvest)
library(sf)
library(dplyr)
library(kableExtra)
library(leaflet)
library(htmlwidgets)
library(htmltools)
Files with .zip extension are extracted into files.
#unzip the contents in './data/turkey_administrativelevels0_1_2.zip' and save unzipped content in './data/turkey_administrativelevels0_1_2'
unzip(zipfile = "./data/zip/turkey_administrativelevels0_1_2.zip", exdir = "./data/turkey_administrativelevels0_1_2")
#unzip the contents in './data/turkey_centeralpoints_1_2.zip' and save unzipped content in './data/turkey_centralpoints_1_2'
unzip(zipfile = "./data/zip/turkey_centeralpoints_1_2.zip", exdir = "./data/turkey_centralpoints_1_2")
Data with sf structure was obtained with the st_read function.
tur_polbnda_adm1_sf= st_read("data/turkey_administrativelevels0_1_2/tur_polbnda_adm1.shp")
tur_pntcntr_adm1_sf = st_read("data/turkey_centralpoints_1_2/tur_pntcntr_adm1.shp")
Here is the first sf data named tur_polbnda_adm1_sf.
tur_polbnda_adm1_sf %>%
select("İl Adı"=adm1_tr, "Shape Leng" =Shape_Leng, "Shape Area"=Shape_Area,"Geometry"=geometry) %>%
kbl(caption = "tur_polbnda_adm1_sf", align = "cccc")%>%
kable_styling(bootstrap_options = c("striped",
"hover",
"condensed",
"responsive"),
font_size = 12) %>%
scroll_box(width = "500px", height = "250px")
| İl Adı | Shape Leng | Shape Area | Geometry |
|---|---|---|---|
| ADANA | 8.271786 | 1.4070835 | MULTIPOLYGON (((36.31587 38… |
| ADIYAMAN | 5.494422 | 0.7505609 | MULTIPOLYGON (((39.25297 38… |
| AFYONKARAHİSAR | 7.149996 | 1.4500639 | MULTIPOLYGON (((31.14797 39… |
| AĞRI | 6.588304 | 1.1631700 | MULTIPOLYGON (((43.28706 40… |
| AKSARAY | 4.432509 | 0.7903876 | MULTIPOLYGON (((33.96446 39… |
| AMASYA | 4.904403 | 0.5997255 | MULTIPOLYGON (((35.24601 41… |
| ANKARA | 11.822914 | 2.6956857 | MULTIPOLYGON (((32.59386 40… |
| ANTALYA | 11.935403 | 2.0382619 | MULTIPOLYGON (((29.91377 36… |
| ARDAHAN | 4.225177 | 0.5292061 | MULTIPOLYGON (((42.70106 41… |
| ARTVİN | 4.699979 | 0.7928665 | MULTIPOLYGON (((41.96935 41… |
| AYDIN | 6.538303 | 0.8255671 | MULTIPOLYGON (((28.36602 38… |
| BALIKESİR | 12.315748 | 1.5336854 | MULTIPOLYGON (((26.63628 39… |
| BARTIN | 2.884653 | 0.2515643 | MULTIPOLYGON (((32.7391 41…. |
| BATMAN | 3.765845 | 0.4590070 | MULTIPOLYGON (((41.63692 38… |
| BAYBURT | 3.171421 | 0.3964768 | MULTIPOLYGON (((40.13141 40… |
| BİLECİK | 3.414509 | 0.4413964 | MULTIPOLYGON (((30.023 40.4… |
| BİNGÖL | 5.268994 | 0.8328325 | MULTIPOLYGON (((40.60736 39… |
| BİTLİS | 5.159675 | 0.8569274 | MULTIPOLYGON (((42.9998 39…. |
| BOLU | 5.430726 | 0.8843812 | MULTIPOLYGON (((32.26899 41… |
| BURDUR | 5.005489 | 0.7303197 | MULTIPOLYGON (((30.43076 37… |
| BURSA | 6.138026 | 1.1422793 | MULTIPOLYGON (((28.53602 40… |
| ÇANAKKALE | 9.260139 | 1.0437308 | MULTIPOLYGON (((26.0523 39…. |
| ÇANKIRI | 4.644764 | 0.8034876 | MULTIPOLYGON (((33.22741 41… |
| ÇORUM | 6.213830 | 1.3215895 | MULTIPOLYGON (((34.55442 41… |
| DENİZLİ | 7.035504 | 1.2401555 | MULTIPOLYGON (((29.88782 38… |
| DİYARBAKIR | 7.045682 | 1.5427158 | MULTIPOLYGON (((41.15871 38… |
| DÜZCE | 2.849445 | 0.2675564 | MULTIPOLYGON (((31.27915 41… |
| EDİRNE | 5.941378 | 0.6590750 | MULTIPOLYGON (((26.93362 42… |
| ELAZIĞ | 6.396555 | 0.9711793 | MULTIPOLYGON (((40.23138 39… |
| ERZİNCAN | 7.915849 | 1.2401317 | MULTIPOLYGON (((40.09536 40… |
| ERZURUM | 9.463435 | 2.6395870 | MULTIPOLYGON (((42.12627 40… |
| ESKİŞEHIR | 6.644221 | 1.4638394 | MULTIPOLYGON (((30.76429 40… |
| GAZİANTEP | 5.420913 | 0.6895780 | MULTIPOLYGON (((37.70403 37… |
| GİRESUN | 4.889698 | 0.7425764 | MULTIPOLYGON (((37.99712 40… |
| GÜMÜŞHANE | 4.864366 | 0.7068033 | MULTIPOLYGON (((39.16747 40… |
| HAKKARİ | 5.323444 | 0.7234147 | MULTIPOLYGON (((44.07318 37… |
| HATAY | 5.245073 | 0.5542336 | MULTIPOLYGON (((36.22622 36… |
| IĞDIR | 4.213092 | 0.3858036 | MULTIPOLYGON (((43.34425 40… |
| ISPARTA | 4.477089 | 0.9167380 | MULTIPOLYGON (((31.08487 38… |
| İSTANBUL | 8.478938 | 0.5866183 | MULTIPOLYGON (((29.14379 40… |
| İZMİR | 15.963794 | 1.2273672 | MULTIPOLYGON (((26.88347 38… |
| KAHRAMANMARAŞ | 6.094586 | 1.4871970 | MULTIPOLYGON (((37.14676 38… |
| KARABÜK | 3.511502 | 0.4444880 | MULTIPOLYGON (((33.00096 41… |
| KARAMAN | 6.072094 | 0.8795315 | MULTIPOLYGON (((33.85023 37… |
| KARS | 5.561932 | 1.0823148 | MULTIPOLYGON (((43.45746 41… |
| KASTAMONU | 6.900303 | 1.4085062 | MULTIPOLYGON (((33.34503 42… |
| KAYSERİ | 7.575294 | 1.7551544 | MULTIPOLYGON (((35.96528 39… |
| KİLİS | 2.510894 | 0.1424337 | MULTIPOLYGON (((36.98933 37… |
| KIRIKKALE | 3.493220 | 0.5043262 | MULTIPOLYGON (((33.71753 40… |
| KIRKLARELİ | 4.987208 | 0.6992569 | MULTIPOLYGON (((27.24969 42… |
| KIRŞEHİR | 4.075713 | 0.6876437 | MULTIPOLYGON (((34.1286 39…. |
| KOCAELİ | 5.251204 | 0.3631846 | MULTIPOLYGON (((30.27095 41… |
| KONYA | 12.843460 | 4.1912128 | MULTIPOLYGON (((33.00767 39… |
| KÜTAHYA | 5.639428 | 1.2148052 | MULTIPOLYGON (((29.68658 39… |
| MALATYA | 7.209746 | 1.2663123 | MULTIPOLYGON (((38.55418 39… |
| MANİSA | 6.927719 | 1.3824484 | MULTIPOLYGON (((27.43909 39… |
| MARDİN | 6.103226 | 0.8929493 | MULTIPOLYGON (((40.86731 37… |
| MERSİN | 8.927775 | 1.6119979 | MULTIPOLYGON (((34.61404 36… |
| MUĞLA | 19.055281 | 1.2828389 | MULTIPOLYGON (((29.02692 36… |
| MUŞ | 5.282574 | 0.9147044 | MULTIPOLYGON (((42.44476 39… |
| NEVŞEHİR | 3.948060 | 0.5687378 | MULTIPOLYGON (((34.8513 39…. |
| NİĞDE | 4.332359 | 0.7411794 | MULTIPOLYGON (((34.60154 38… |
| ORDU | 4.850937 | 0.6328541 | MULTIPOLYGON (((37.17516 41… |
| OSMANİYE | 3.219062 | 0.3373474 | MULTIPOLYGON (((36.20403 37… |
| RİZE | 3.294541 | 0.4107964 | MULTIPOLYGON (((41.35023 41… |
| SAKARYA | 4.043720 | 0.5151588 | MULTIPOLYGON (((30.37474 41… |
| SAMSUN | 7.110423 | 1.0472967 | MULTIPOLYGON (((35.95505 41… |
| ŞANLIURFA | 7.248394 | 1.9545154 | MULTIPOLYGON (((39.14613 37… |
| SİİRT | 4.019729 | 0.5857033 | MULTIPOLYGON (((41.85338 38… |
| SİNOP | 5.397845 | 0.6174678 | MULTIPOLYGON (((34.94445 42… |
| ŞIRNAK | 5.901009 | 0.7212010 | MULTIPOLYGON (((42.98016 37… |
| SİVAS | 10.820126 | 2.9517818 | MULTIPOLYGON (((38.07052 40… |
| TEKİRDAĞ | 4.899891 | 0.6636037 | MULTIPOLYGON (((28.09059 41… |
| TOKAT | 6.279491 | 1.0647630 | MULTIPOLYGON (((36.64957 40… |
| TRABZON | 4.277406 | 0.4954579 | MULTIPOLYGON (((39.43447 41… |
| TUNCELİ | 5.408472 | 0.7906146 | MULTIPOLYGON (((39.79968 39… |
| UŞAK | 3.864988 | 0.5742211 | MULTIPOLYGON (((29.74957 38… |
| VAN | 8.362708 | 2.1597433 | MULTIPOLYGON (((43.86293 39… |
| YALOVA | 2.051652 | 0.0870164 | MULTIPOLYGON (((29.5329 40…. |
| YOZGAT | 6.386410 | 1.4367432 | MULTIPOLYGON (((35.38648 40… |
| ZONGULDAK | 3.270366 | 0.3604839 | MULTIPOLYGON (((32.12947 41… |
Here is the second sf data named tur_pntcntr_adm1_sf.
tur_pntcntr_adm1_sf %>%
select("İl Adı"=adm1_tr, "Latitude"=latitude, "Longitude"=longitude ,Geometry="geometry") %>%
kbl(caption = "tur_pntcntr_adm1_sf", align="cccc")%>%
kable_styling(bootstrap_options = c("striped",
"hover",
"condensed",
"responsive"),
font_size = 12) %>%
scroll_box(width = "500px", height = "250px")
| İl Adı | Latitude | Longitude | Geometry |
|---|---|---|---|
| ADANA | 36.98451 | 35.33368 | POINT (35.33368 36.98451) |
| ADIYAMAN | 37.76601 | 38.27676 | POINT (38.27676 37.76601) |
| AFYONKARAHİSAR | 38.75812 | 30.53685 | POINT (30.53685 38.75812) |
| AĞRI | 39.71944 | 43.05036 | POINT (43.05036 39.71944) |
| AKSARAY | 38.37134 | 34.02710 | POINT (34.0271 38.37134) |
| AMASYA | 40.65100 | 35.83337 | POINT (35.83338 40.651) |
| ANKARA | 39.92979 | 32.85292 | POINT (32.85292 39.92979) |
| ANTALYA | 36.88909 | 30.70401 | POINT (30.70401 36.88909) |
| ARDAHAN | 41.11366 | 42.70139 | POINT (42.70139 41.11366) |
| ARTVİN | 41.18112 | 41.82085 | POINT (41.82085 41.18112) |
| AYDIN | 37.84879 | 27.84343 | POINT (27.84343 37.84879) |
| BALIKESİR | 39.63782 | 27.87399 | POINT (27.87399 39.63782) |
| BARTIN | 41.63366 | 32.33739 | POINT (32.33739 41.63366) |
| BATMAN | 37.87676 | 41.11442 | POINT (41.11442 37.87676) |
| BAYBURT | 40.25810 | 40.22509 | POINT (40.22509 40.2581) |
| BİLECİK | 40.14392 | 29.98063 | POINT (29.98063 40.14392) |
| BİNGÖL | 38.88471 | 40.49685 | POINT (40.49685 38.88471) |
| BİTLİS | 38.40435 | 42.10764 | POINT (42.10764 38.40435) |
| BOLU | 40.73318 | 31.60296 | POINT (31.60296 40.73318) |
| BURDUR | 37.72042 | 30.28324 | POINT (30.28324 37.72042) |
| BURSA | 40.19650 | 29.05892 | POINT (29.05892 40.1965) |
| ÇANAKKALE | 40.14650 | 26.40629 | POINT (26.40629 40.1465) |
| ÇANKIRI | 40.59966 | 33.61637 | POINT (33.61637 40.59966) |
| ÇORUM | 40.55039 | 34.95497 | POINT (34.95497 40.55039) |
| DENİZLİ | 37.78175 | 29.08604 | POINT (29.08604 37.78175) |
| DİYARBAKIR | 37.91363 | 40.21721 | POINT (40.21721 37.91363) |
| DÜZCE | 40.83948 | 31.16386 | POINT (31.16386 40.83948) |
| EDİRNE | 41.67642 | 26.55241 | POINT (26.55241 41.67642) |
| ELAZIĞ | 38.67313 | 39.22912 | POINT (39.22912 38.67313) |
| ERZİNCAN | 39.74847 | 39.47915 | POINT (39.47915 39.74847) |
| ERZURUM | 39.90616 | 41.27401 | POINT (41.27401 39.90616) |
| ESKİŞEHİR | 39.76763 | 30.51334 | POINT (30.51334 39.76763) |
| GAZİANTEP | 37.06145 | 37.36917 | POINT (37.36917 37.06145) |
| GİRESUN | 40.91948 | 38.38602 | POINT (38.38602 40.91948) |
| GÜMÜŞHANE | 40.45843 | 39.47826 | POINT (39.47826 40.45843) |
| HAKKARİ | 37.57565 | 43.73767 | POINT (43.73767 37.57565) |
| HATAY | 36.19888 | 36.15889 | POINT (36.15889 36.19888) |
| IĞDIR | 39.92294 | 44.04550 | POINT (44.0455 39.92294) |
| ISPARTA | 37.75921 | 30.54808 | POINT (30.54808 37.75921) |
| İSTANBUL | 41.01227 | 28.97590 | POINT (28.9759 41.01227) |
| İZMİR | 38.43414 | 27.17187 | POINT (27.17187 38.43414) |
| KAHRAMANMARAŞ | 37.57726 | 36.92770 | POINT (36.9277 37.57726) |
| KARABÜK | 41.19592 | 32.60845 | POINT (32.60845 41.19592) |
| KARAMAN | 37.18275 | 33.21599 | POINT (33.21599 37.18275) |
| KARS | 40.60289 | 43.09508 | POINT (43.09508 40.60289) |
| KASTAMONU | 41.37577 | 33.77875 | POINT (33.77875 41.37577) |
| KAYSERİ | 38.72229 | 35.48863 | POINT (35.48863 38.72229) |
| KİLİS | 36.71558 | 37.11333 | POINT (37.11333 36.71558) |
| KIRIKKALE | 39.83996 | 33.50399 | POINT (33.50399 39.83996) |
| KIRKLARELİ | 41.73592 | 27.21886 | POINT (27.21886 41.73592) |
| KIRŞEHİR | 39.14643 | 34.15977 | POINT (34.15977 39.14643) |
| KOCAELİ | 40.76475 | 29.92162 | POINT (29.92162 40.76475) |
| KONYA | 37.87231 | 32.49598 | POINT (32.49598 37.87231) |
| KÜTAHYA | 39.41959 | 29.98437 | POINT (29.98437 39.41959) |
| MALATYA | 38.34150 | 38.31345 | POINT (38.31345 38.3415) |
| MANİSA | 38.62227 | 27.43366 | POINT (27.43366 38.62227) |
| MARDİN | 37.31229 | 40.73779 | POINT (40.73779 37.31229) |
| MERSİN | 36.80125 | 34.63378 | POINT (34.63378 36.80125) |
| MUĞLA | 37.21597 | 28.36262 | POINT (28.36262 37.21597) |
| MUŞ | 38.73220 | 41.48898 | POINT (41.48898 38.7322) |
| NEVŞEHİR | 38.62958 | 34.72326 | POINT (34.72326 38.62958) |
| NİĞDE | 37.97004 | 34.67665 | POINT (34.67665 37.97004) |
| ORDU | 40.98443 | 37.87781 | POINT (37.87781 40.98443) |
| OSMANİYE | 37.07503 | 36.24845 | POINT (36.24845 37.07503) |
| RİZE | 41.02385 | 40.52051 | POINT (40.52051 41.02385) |
| SAKARYA | 40.78056 | 30.39999 | POINT (30.39999 40.78056) |
| SAMSUN | 41.28983 | 36.33806 | POINT (36.33806 41.28983) |
| SİİRT | 37.92536 | 41.94278 | POINT (41.94278 37.92536) |
| SİNOP | 42.02687 | 35.15196 | POINT (35.15196 42.02687) |
| SİVAS | 39.75029 | 37.01580 | POINT (37.0158 39.75029) |
| ŞANLIURFA | 37.15359 | 38.78604 | POINT (38.78604 37.15359) |
| ŞIRNAK | 37.52226 | 42.45676 | POINT (42.45676 37.52226) |
| TEKİRDAĞ | 40.97556 | 27.50939 | POINT (27.50939 40.97556) |
| TOKAT | 40.31415 | 36.55247 | POINT (36.55247 40.31415) |
| TRABZON | 41.00313 | 39.70217 | POINT (39.70217 41.00313) |
| TUNCELİ | 39.10721 | 39.54622 | POINT (39.54622 39.10721) |
| UŞAK | 38.67029 | 29.40225 | POINT (29.40225 38.67029) |
| VAN | 38.50164 | 43.39541 | POINT (43.39541 38.50164) |
| YALOVA | 40.65554 | 29.27108 | POINT (29.27108 40.65554) |
| YOZGAT | 39.82322 | 34.80762 | POINT (34.80762 39.82322) |
| ZONGULDAK | 41.45203 | 31.78192 | POINT (31.78192 41.45203) |
The web page with the specified url has been captured for Web Scraping process.
url = "https://covid19.saglik.gov.tr/"
html = read_html(url)
Data were obtained from the table on the web page with the help of various functions.
table_data = html %>%
html_elements("table") %>%
.[[1]] %>%
html_table()
Here is the table_data showing the weekly number of cases per 100 thousand by provinces.
table_data %>%
kbl(caption="İllere Göre Haftalık Vaka Sayısı (100 binde)", align = "cc") %>%
kable_styling(bootstrap_options = c("striped",
"hover",
"condensed",
"responsive"),
font_size = 15) %>%
scroll_box(width = "500px", height = "250px")
| İl Adı | Sayı |
|---|---|
| Adana | 263,87 |
| Adıyaman | 29,25 |
| Afyon | 63,10 |
| Ağrı | 7,47 |
| Aksaray | 51,30 |
| Amasya | 202,69 |
| Ankara | 144,10 |
| Antalya | 66,55 |
| Ardahan | 40,56 |
| Artvin | 241,89 |
| Aydın | 59,07 |
| Balıkesir | 257,92 |
| Bartın | 135,19 |
| Batman | 12,74 |
| Bayburt | 13,43 |
| Bilecik | 331,94 |
| Bingöl | 20,23 |
| Bitlis | 8,55 |
| Bolu | 252,54 |
| Burdur | 204,80 |
| Bursa | 180,15 |
| Çanakkale | 456,84 |
| Çankırı | 104,97 |
| Çorum | 198,82 |
| Denizli | 223,65 |
| Diyarbakır | 21,36 |
| Düzce | 173,88 |
| Edirne | 306,80 |
| Elazığ | 39,97 |
| Erzincan | 100,24 |
| Erzurum | 23,47 |
| Eskişehir | 358,79 |
| Gaziantep | 26,13 |
| Giresun | 278,57 |
| Gümüşhane | 127,03 |
| Hakkari | 2,50 |
| Hatay | 223,40 |
| Iğdır | 45,70 |
| Isparta | 205,99 |
| İstanbul | 244,15 |
| İzmir | 67,97 |
| Kahramanmaraş | 61,55 |
| Karabük | 167,07 |
| Karaman | 63,55 |
| Kars | 19,65 |
| Kastamonu | 181,47 |
| Kayseri | 53,04 |
| Kırıkkale | 78,94 |
| Kırklareli | 445,63 |
| Kırşehir | 117,68 |
| Kilis | 48,32 |
| Kocaeli | 256,60 |
| Konya | 59,02 |
| Kütahya | 143,23 |
| Malatya | 16,13 |
| Manisa | 158,35 |
| Mardin | 10,18 |
| Mersin | 276,07 |
| Muğla | 58,16 |
| Muş | 6,08 |
| Nevşehir | 112,80 |
| Niğde | 86,72 |
| Ordu | 386,26 |
| Osmaniye | 294,04 |
| Rize | 254,10 |
| Sakarya | 185,39 |
| Samsun | 249,91 |
| Siirt | 18,43 |
| Sinop | 253,16 |
| Sivas | 53,78 |
| Şanlıurfa | 13,76 |
| Şırnak | 6,69 |
| Tekirdağ | 351,32 |
| Tokat | 253,40 |
| Trabzon | 326,15 |
| Tunceli | 154,60 |
| Uşak | 101,78 |
| Van | 2,44 |
| Yalova | 231,12 |
| Yozgat | 69,67 |
| Zonguldak | 190,97 |
A conversion operation was performed for a variable in the data named table_data.
#The variable named Sayı has been converted from character data type to numeric data type.
table_data$Sayı = as.numeric(gsub(",",".", table_data$Sayı))
A column named Category has been added to table_data.
#The column named Category, which has an ordered factor structure,
# is filled with values corresponding to the specified conditions.
table_data = table_data %>%
mutate(Category = case_when(0<=Sayı & Sayı<=51 ~ "1",
51<Sayı & Sayı<=150 ~ "2",
150<Sayı & Sayı<=200 ~ "3",
200<Sayı & Sayı<=250 ~ "4",
250<Sayı ~ "5")) %>%
mutate(Category = factor(Category,
levels=c("1",
"2",
"3",
"4",
"5"),
ordered = TRUE))
This is the final version of the table_data.
table_data %>%
kbl(caption="İllere Göre Haftalık Vaka Sayısı (100 binde)", align = "ccc") %>%
kable_styling(bootstrap_options = c("striped",
"hover",
"condensed",
"responsive"),
font_size = 15) %>%
scroll_box(width = "500px", height = "250px")
| İl Adı | Sayı | Category |
|---|---|---|
| Adana | 263.87 | 5 |
| Adıyaman | 29.25 | 1 |
| Afyon | 63.10 | 2 |
| Ağrı | 7.47 | 1 |
| Aksaray | 51.30 | 2 |
| Amasya | 202.69 | 4 |
| Ankara | 144.10 | 2 |
| Antalya | 66.55 | 2 |
| Ardahan | 40.56 | 1 |
| Artvin | 241.89 | 4 |
| Aydın | 59.07 | 2 |
| Balıkesir | 257.92 | 5 |
| Bartın | 135.19 | 2 |
| Batman | 12.74 | 1 |
| Bayburt | 13.43 | 1 |
| Bilecik | 331.94 | 5 |
| Bingöl | 20.23 | 1 |
| Bitlis | 8.55 | 1 |
| Bolu | 252.54 | 5 |
| Burdur | 204.80 | 4 |
| Bursa | 180.15 | 3 |
| Çanakkale | 456.84 | 5 |
| Çankırı | 104.97 | 2 |
| Çorum | 198.82 | 3 |
| Denizli | 223.65 | 4 |
| Diyarbakır | 21.36 | 1 |
| Düzce | 173.88 | 3 |
| Edirne | 306.80 | 5 |
| Elazığ | 39.97 | 1 |
| Erzincan | 100.24 | 2 |
| Erzurum | 23.47 | 1 |
| Eskişehir | 358.79 | 5 |
| Gaziantep | 26.13 | 1 |
| Giresun | 278.57 | 5 |
| Gümüşhane | 127.03 | 2 |
| Hakkari | 2.50 | 1 |
| Hatay | 223.40 | 4 |
| Iğdır | 45.70 | 1 |
| Isparta | 205.99 | 4 |
| İstanbul | 244.15 | 4 |
| İzmir | 67.97 | 2 |
| Kahramanmaraş | 61.55 | 2 |
| Karabük | 167.07 | 3 |
| Karaman | 63.55 | 2 |
| Kars | 19.65 | 1 |
| Kastamonu | 181.47 | 3 |
| Kayseri | 53.04 | 2 |
| Kırıkkale | 78.94 | 2 |
| Kırklareli | 445.63 | 5 |
| Kırşehir | 117.68 | 2 |
| Kilis | 48.32 | 1 |
| Kocaeli | 256.60 | 5 |
| Konya | 59.02 | 2 |
| Kütahya | 143.23 | 2 |
| Malatya | 16.13 | 1 |
| Manisa | 158.35 | 3 |
| Mardin | 10.18 | 1 |
| Mersin | 276.07 | 5 |
| Muğla | 58.16 | 2 |
| Muş | 6.08 | 1 |
| Nevşehir | 112.80 | 2 |
| Niğde | 86.72 | 2 |
| Ordu | 386.26 | 5 |
| Osmaniye | 294.04 | 5 |
| Rize | 254.10 | 5 |
| Sakarya | 185.39 | 3 |
| Samsun | 249.91 | 4 |
| Siirt | 18.43 | 1 |
| Sinop | 253.16 | 5 |
| Sivas | 53.78 | 2 |
| Şanlıurfa | 13.76 | 1 |
| Şırnak | 6.69 | 1 |
| Tekirdağ | 351.32 | 5 |
| Tokat | 253.40 | 5 |
| Trabzon | 326.15 | 5 |
| Tunceli | 154.60 | 3 |
| Uşak | 101.78 | 2 |
| Van | 2.44 | 1 |
| Yalova | 231.12 | 4 |
| Yozgat | 69.67 | 2 |
| Zonguldak | 190.97 | 3 |
A sub-data including the names of the provinces in Turkey and the geometry features of these provinces was created.
#The variable containing the names of the provinces has been renamed to "İl Adı".
geometry_of_provinces = tur_polbnda_adm1_sf %>%
select(adm1_tr) %>%
rename("İl Adı" = "adm1_tr")
| İl Adı | geometry |
|---|---|
| ADANA | MULTIPOLYGON (((36.31587 38… |
| ADIYAMAN | MULTIPOLYGON (((39.25297 38… |
| AFYONKARAHİSAR | MULTIPOLYGON (((31.14797 39… |
| AĞRI | MULTIPOLYGON (((43.28706 40… |
| AKSARAY | MULTIPOLYGON (((33.96446 39… |
| AMASYA | MULTIPOLYGON (((35.24601 41… |
Necessary changes have been made so that the names of the provinces in the table_data and geometry_of_provinces are in the same order.
table_data[c(48,49,50,51,68,69,70,71,72),] = table_data[c(51,48,49,50,71,68,69,72,70),]
The spelling of city names in table_data and geometry_of_provinces has been made the same.
geometry_of_provinces[,"İl Adı"] = table_data[,"İl Adı"]
By merging the table_data and geometry_of_provinces, the data to be used in the visualization of the map is obtained.
map_data = merge(geometry_of_provinces,table_data)
map_data %>%
kbl(caption="map_data",align="cccc") %>%
kable_styling(bootstrap_options = c("striped",
"hover",
"condensed",
"responsive"),
font_size = 12) %>%
scroll_box(width = "500px", height = "250px")
| İl Adı | Sayı | Category | geometry |
|---|---|---|---|
| Adana | 263.87 | 5 | MULTIPOLYGON (((36.31587 38… |
| Adıyaman | 29.25 | 1 | MULTIPOLYGON (((39.25297 38… |
| Afyon | 63.10 | 2 | MULTIPOLYGON (((31.14797 39… |
| Ağrı | 7.47 | 1 | MULTIPOLYGON (((43.28706 40… |
| Aksaray | 51.30 | 2 | MULTIPOLYGON (((33.96446 39… |
| Amasya | 202.69 | 4 | MULTIPOLYGON (((35.24601 41… |
| Ankara | 144.10 | 2 | MULTIPOLYGON (((32.59386 40… |
| Antalya | 66.55 | 2 | MULTIPOLYGON (((29.91377 36… |
| Ardahan | 40.56 | 1 | MULTIPOLYGON (((42.70106 41… |
| Artvin | 241.89 | 4 | MULTIPOLYGON (((41.96935 41… |
| Aydın | 59.07 | 2 | MULTIPOLYGON (((28.36602 38… |
| Balıkesir | 257.92 | 5 | MULTIPOLYGON (((26.63628 39… |
| Bartın | 135.19 | 2 | MULTIPOLYGON (((32.7391 41…. |
| Batman | 12.74 | 1 | MULTIPOLYGON (((41.63692 38… |
| Bayburt | 13.43 | 1 | MULTIPOLYGON (((40.13141 40… |
| Bilecik | 331.94 | 5 | MULTIPOLYGON (((30.023 40.4… |
| Bingöl | 20.23 | 1 | MULTIPOLYGON (((40.60736 39… |
| Bitlis | 8.55 | 1 | MULTIPOLYGON (((42.9998 39…. |
| Bolu | 252.54 | 5 | MULTIPOLYGON (((32.26899 41… |
| Burdur | 204.80 | 4 | MULTIPOLYGON (((30.43076 37… |
| Bursa | 180.15 | 3 | MULTIPOLYGON (((28.53602 40… |
| Çanakkale | 456.84 | 5 | MULTIPOLYGON (((26.0523 39…. |
| Çankırı | 104.97 | 2 | MULTIPOLYGON (((33.22741 41… |
| Çorum | 198.82 | 3 | MULTIPOLYGON (((34.55442 41… |
| Denizli | 223.65 | 4 | MULTIPOLYGON (((29.88782 38… |
| Diyarbakır | 21.36 | 1 | MULTIPOLYGON (((41.15871 38… |
| Düzce | 173.88 | 3 | MULTIPOLYGON (((31.27915 41… |
| Edirne | 306.80 | 5 | MULTIPOLYGON (((26.93362 42… |
| Elazığ | 39.97 | 1 | MULTIPOLYGON (((40.23138 39… |
| Erzincan | 100.24 | 2 | MULTIPOLYGON (((40.09536 40… |
| Erzurum | 23.47 | 1 | MULTIPOLYGON (((42.12627 40… |
| Eskişehir | 358.79 | 5 | MULTIPOLYGON (((30.76429 40… |
| Gaziantep | 26.13 | 1 | MULTIPOLYGON (((37.70403 37… |
| Giresun | 278.57 | 5 | MULTIPOLYGON (((37.99712 40… |
| Gümüşhane | 127.03 | 2 | MULTIPOLYGON (((39.16747 40… |
| Hakkari | 2.50 | 1 | MULTIPOLYGON (((44.07318 37… |
| Hatay | 223.40 | 4 | MULTIPOLYGON (((36.22622 36… |
| Iğdır | 45.70 | 1 | MULTIPOLYGON (((43.34425 40… |
| Isparta | 205.99 | 4 | MULTIPOLYGON (((31.08487 38… |
| İstanbul | 244.15 | 4 | MULTIPOLYGON (((29.14379 40… |
| İzmir | 67.97 | 2 | MULTIPOLYGON (((26.88347 38… |
| Kahramanmaraş | 61.55 | 2 | MULTIPOLYGON (((37.14676 38… |
| Karabük | 167.07 | 3 | MULTIPOLYGON (((33.00096 41… |
| Karaman | 63.55 | 2 | MULTIPOLYGON (((33.85023 37… |
| Kars | 19.65 | 1 | MULTIPOLYGON (((43.45746 41… |
| Kastamonu | 181.47 | 3 | MULTIPOLYGON (((33.34503 42… |
| Kayseri | 53.04 | 2 | MULTIPOLYGON (((35.96528 39… |
| Kilis | 48.32 | 1 | MULTIPOLYGON (((36.98933 37… |
| Kırıkkale | 78.94 | 2 | MULTIPOLYGON (((33.71753 40… |
| Kırklareli | 445.63 | 5 | MULTIPOLYGON (((27.24969 42… |
| Kırşehir | 117.68 | 2 | MULTIPOLYGON (((34.1286 39…. |
| Kocaeli | 256.60 | 5 | MULTIPOLYGON (((30.27095 41… |
| Konya | 59.02 | 2 | MULTIPOLYGON (((33.00767 39… |
| Kütahya | 143.23 | 2 | MULTIPOLYGON (((29.68658 39… |
| Malatya | 16.13 | 1 | MULTIPOLYGON (((38.55418 39… |
| Manisa | 158.35 | 3 | MULTIPOLYGON (((27.43909 39… |
| Mardin | 10.18 | 1 | MULTIPOLYGON (((40.86731 37… |
| Mersin | 276.07 | 5 | MULTIPOLYGON (((34.61404 36… |
| Muğla | 58.16 | 2 | MULTIPOLYGON (((29.02692 36… |
| Muş | 6.08 | 1 | MULTIPOLYGON (((42.44476 39… |
| Nevşehir | 112.80 | 2 | MULTIPOLYGON (((34.8513 39…. |
| Niğde | 86.72 | 2 | MULTIPOLYGON (((34.60154 38… |
| Ordu | 386.26 | 5 | MULTIPOLYGON (((37.17516 41… |
| Osmaniye | 294.04 | 5 | MULTIPOLYGON (((36.20403 37… |
| Rize | 254.10 | 5 | MULTIPOLYGON (((41.35023 41… |
| Sakarya | 185.39 | 3 | MULTIPOLYGON (((30.37474 41… |
| Samsun | 249.91 | 4 | MULTIPOLYGON (((35.95505 41… |
| Siirt | 18.43 | 1 | MULTIPOLYGON (((41.85338 38… |
| Sinop | 253.16 | 5 | MULTIPOLYGON (((34.94445 42… |
| Sivas | 53.78 | 2 | MULTIPOLYGON (((38.07052 40… |
| Şanlıurfa | 13.76 | 1 | MULTIPOLYGON (((39.14613 37… |
| Şırnak | 6.69 | 1 | MULTIPOLYGON (((42.98016 37… |
| Tekirdağ | 351.32 | 5 | MULTIPOLYGON (((28.09059 41… |
| Tokat | 253.40 | 5 | MULTIPOLYGON (((36.64957 40… |
| Trabzon | 326.15 | 5 | MULTIPOLYGON (((39.43447 41… |
| Tunceli | 154.60 | 3 | MULTIPOLYGON (((39.79968 39… |
| Uşak | 101.78 | 2 | MULTIPOLYGON (((29.74957 38… |
| Van | 2.44 | 1 | MULTIPOLYGON (((43.86293 39… |
| Yalova | 231.12 | 4 | MULTIPOLYGON (((29.5329 40…. |
| Yozgat | 69.67 | 2 | MULTIPOLYGON (((35.38648 40… |
| Zonguldak | 190.97 | 3 | MULTIPOLYGON (((32.12947 41… |
Labels that will appear when hovering over provinces on the map have been created.
labels <- sprintf("<strong>%s</strong><br/>
<strong> %s</strong>", map_data$"İl Adı", map_data$Sayı) %>%
lapply(htmltools::HTML)
A sequential color palette was created with colors corresponding to the specified levels.
#Colors are taken from the map requested from us for each level specified with the help of the colorzilla plugin in Chrome.
pal_col = colorFactor(palette = c("#DAD9D7",
"#D1D0CE",
"#9C9C9C",
"#858585",
"#7A7878"),
domain = map_data$Category,
levels = c("1",
"2",
"3",
"4",
"5"),
ordered = TRUE)
The necessary actions have been taken to add a title to the map.
tag.map.title <- tags$style(HTML("
.leaflet-control.map-title {
transform: translate(-50%,20%);
position: fixed !important;
left: 50%;
text-align: center;
padding-left: 70px;
padding-right: 70px;
background: #199F9B;
color:white;
font-weight: bold;
font-size: 17px;
}
"))
title <- tags$div(
tag.map.title, HTML("İllere Göre Haftalık Vaka Sayısı (100 binde) </br>
11-17 Aralık 2021")
)
A map was created using the data named map_data.
map = map_data %>%
leaflet() %>%
addPolygons(color = "white",
weight = 1,
fillColor = ~pal_col(Category),
fillOpacity = 1,
smoothFactor = 1,
label = labels,
labelOptions = labelOptions(style = list("color" = "white", #for popup label
"background-color" = "#1B888C",
"border-color" = "#1B888C",
"padding" = "20px"),
textsize = "15px",
direction = "auto"),
highlight = highlightOptions(weight = 1,
fillColor = "#0E5C59",
bringToFront = TRUE)) %>%
addLabelOnlyMarkers(lng = tur_pntcntr_adm1_sf$longitude,
lat = tur_pntcntr_adm1_sf$latitude,
label = ~Sayı,
labelOptions = labelOptions(noHide = T,
direction = "center",
textsize = "9px",
style = list("color" = "white",
"background-color" = "#0E5C59",
"border-color" = "#0E5C59",
"border-radius" = "35%",
"padding" = "0px"))) %>%
addControl(title, position = "topleft", className="map-title")
map